
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   B U T T O N S 
 
 B u t t o n   1   T e x t   " R U N   T E S T " 
 
 B u t t o n   5   T e x t   " R O T A T E   H O R Z " 
 
 
 
 S t o p 
 
 
 
 
 
 L a b e l   R U N   T E S T 
 
 	 F o r   v 9   =   1   T o   3 0 
 
 	 	 G o s u b   R O T A T E   H O R Z 
 
 	 	 G o s u b   R O T A T E   V E R T 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   R O T A T E   H O R Z 
 
 	 W a i t   S e c o n d s   0 . 3 
 
 	 F o r   v 1   =   1   T o   1 0               '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 B u t t o n   5   T e x t   " R O T A T E   V E R T " 
 
 	 	 I f   F a l s e 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 B u t t o n   5   T e x t   " R O T A T E   V E R T " 
 
 R e t u r n 
 
 
 
 L a b e l   R O T A T E   V E R T 
 
 	 W a i t   S e c o n d s   0 . 3 
 
 	 F o r   v 1   =   1   T o   1 0               '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 B u t t o n   5   T e x t   " R O T A T E   H O R Z " 
 
 	 	 I f   F a l s e 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 B u t t o n   5   T e x t   " R O T A T E   H O R Z " 
 
 R e t u r n 
 
 
 
 
 
 